!     NAME=CUTIME
      FUNCTION CUTIME(ARG)
      IMPLICIT NONE
!     ******************************************************************
!     *                                                                *
!     *   CUMULATIVE COMPUTING TIME                                    *
!     *                                                                *
!     ******************************************************************

!     DTIME RETURNS IN TARRAY(1) ELAPSED USER TIME SINCE LAST CALL
!                      TARRAY(2) ELAPSED SYSTEM TIME SINCE LAST CALL
!                      DTIME THE SUM OF (1) AND (2)

      REAL :: ARRAY(2),OLD,CUTIME
      DATA OLD/0./
      CUTIME    = DTIME(ARRAY)
      CUTIME    = ARRAY(1)+OLD
      OLD       = CUTIME
      RETURN
      END FUNCTION CUTIME

